home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 3 / inter@ivo 1996-04.iso / cybint3 / bin / maxime.dxr / 00109.ls < prev    next >
Encoding:
Text File  |  1996-03-21  |  900 b   |  38 lines
  1. on exitFrame
  2.   global sprpos, Aframe
  3.   if rollOver(5) then
  4.     set Aframe to the frame
  5.     go("naveg")
  6.   end if
  7.   put sprpos
  8.   if sprpos = 1 then
  9.     set the visible of sprite 3 to 0
  10.     set the visible of sprite 2 to 1
  11.     set sprpos to 2
  12.   else
  13.     if sprpos = 2 then
  14.       set the visible of sprite 3 to 1
  15.       set the visible of sprite 2 to 0
  16.       set sprpos to 3
  17.     else
  18.       if sprpos = 3 then
  19.         set the visible of sprite 3 to 0
  20.         set the visible of sprite 2 to 1
  21.         set sprpos to 4
  22.       else
  23.         if sprpos = 4 then
  24.           set the locH of sprite 2 to the locH of sprite 2 + 45
  25.           if the locH of sprite 2 >= 640 then
  26.             set the locH of sprite 2 to -135
  27.             puppetSprite(2, 0)
  28.             puppetSprite(3, 0)
  29.             puppetSprite(4, 0)
  30.             go(85)
  31.           end if
  32.         end if
  33.       end if
  34.     end if
  35.   end if
  36.   go(the frame)
  37. end
  38.